home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1987-10-20 | 9.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 18 47 65 74 4e 65 77 44 | 69 61 6c 6f 67 28 29 20 |.GetNewD|ialog() |
|00000010| 66 61 69 6c 65 64 2e 2e | 2e 00 c0 02 c3 5c 28 f5 |failed..|.....\(.|
|00000020| c2 8f 5c 29 40 12 9f bf | 11 f7 ce d9 16 87 c0 1c |..\)@...|........|
|00000030| eb 79 a2 c4 7e 6b 3f e9 | 18 54 68 69 73 20 69 73 |.y..~k?.|.This is|
|00000040| 20 61 20 70 61 73 63 61 | 6c 20 73 74 72 69 6e 67 | a pasca|l string|
|00000050| 2e 00 09 61 5f 42 6f 6f | 6c 65 61 6e 05 61 5f 69 |...a_Boo|lean.a_i|
|00000060| 6e 74 06 61 5f 6c 6f 6e | 67 00 07 61 5f 66 6c 6f |nt.a_lon|g..a_flo|
|00000070| 61 74 0a 61 5f 73 68 6f | 72 74 44 62 6c 00 08 61 |at.a_sho|rtDbl..a|
|00000080| 5f 64 6f 75 62 6c 65 00 | 08 61 5f 53 74 72 32 35 |_double.|.a_Str25|
|00000090| 35 00 04 54 52 55 45 00 | 05 46 41 4c 53 45 03 20 |5..TRUE.|.FALSE. |
|000000a0| 3d 20 21 43 6c 69 63 6b | 20 4d 6f 75 73 65 20 42 |= !Click| Mouse B|
|000000b0| 75 74 74 6f 6e 20 74 6f | 20 43 6f 6e 74 69 6e 75 |utton to| Continu|
|000000c0| 65 2e 2e 2e 3f ff c0 00 | 00 00 00 00 00 00 10 3c |e...?...|.......<|
|000000d0| 3c 3c 20 4d 61 63 54 75 | 74 6f 72 20 3e 3e 3e 00 |<< MacTu|tor >>>.|
|000000e0| 0b 56 6f 6c 2e 33 20 4e | 6f 2e 31 31 1e a5 20 50 |.Vol.3 N|o.11.. P|
|000000f0| 61 73 63 61 6c 20 53 74 | 72 69 6e 67 20 4c 69 62 |ascal St|ring Lib|
|00000100| 72 61 72 79 20 44 65 6d | 6f 20 a5 00 24 54 68 65 |rary Dem|o ..$The|
|00000110| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 70 61 67 65 73 | followi|ng pages|
|00000120| 20 77 69 6c 6c 20 65 78 | 70 6c 61 69 6e 20 74 68 | will ex|plain th|
|00000130| 65 00 24 27 48 6f 77 20 | 54 6f 27 73 20 61 6e 64 |e.$'How |To's and|
|00000140| 20 74 68 65 20 27 52 65 | 73 75 6c 74 73 20 4f 66 | the 'Re|sults Of|
|00000150| 27 20 75 73 69 6e 67 00 | 2b 65 61 63 68 20 66 75 |' using.|+each fu|
|00000160| 6e 63 74 69 6f 6e 20 69 | 6e 20 74 68 65 20 50 61 |nction i|n the Pa|
|00000170| 73 63 61 6c 20 53 74 72 | 69 6e 67 20 4c 69 62 72 |scal Str|ing Libr|
|00000180| 61 72 79 2e 15 28 63 6f | 75 6e 74 2c 20 73 2c 20 |ary..(co|unt, s, |
|00000190| 68 2c 20 76 2c 20 2e 2e | 2e 29 08 50 53 74 72 44 |h, v, ..|.).PStrD|
|000001a0| 72 61 77 00 32 63 6f 75 | 6e 74 20 20 2d 20 20 23 |raw.2cou|nt - #|
|000001b0| 20 6f 66 20 7b 20 73 2c | 20 68 2c 20 76 7d 20 61 | of { s,| h, v} a|
|000001c0| 72 67 75 6d 65 6e 74 20 | 73 65 74 73 20 74 6f 20 |rgument |sets to |
|000001d0| 66 6f 6c 6c 6f 77 2e 00 | 1f 73 20 20 20 20 20 20 |follow..|.s |
|000001e0| 2d 20 20 50 61 73 63 61 | 6c 20 73 74 72 69 6e 67 |- Pasca|l string|
|000001f0| 20 74 6f 20 64 72 61 77 | 1f 68 20 20 20 20 20 20 | to draw|.h |
|00000200| 2d 20 20 48 6f 72 69 7a | 6f 6e 74 61 6c 20 63 6f |- Horiz|ontal co|
|00000210| 6f 72 64 69 6e 61 74 65 | 1d 76 20 20 20 20 20 20 |ordinate|.v |
|00000220| 2d 20 20 56 65 72 74 69 | 63 61 6c 20 63 6f 6f 72 |- Verti|cal coor|
|00000230| 64 69 6e 61 74 65 2b 2e | 2e 2e 20 20 20 20 2d 20 |dinate+.|.. - |
|00000240| 20 32 2d 39 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 | 2-9 add|itional |
|00000250| 73 65 74 73 20 6f 66 20 | 7b 20 73 2c 20 68 2c 20 |sets of |{ s, h, |
|00000260| 76 7d 41 50 53 74 72 44 | 72 61 77 28 29 20 64 72 |v}APStrD|raw() dr|
|00000270| 61 77 73 20 31 20 74 6f | 20 31 30 20 50 61 73 63 |aws 1 to| 10 Pasc|
|00000280| 61 6c 20 73 74 72 69 6e | 67 73 20 61 74 20 73 70 |al strin|gs at sp|
|00000290| 65 63 69 66 69 65 64 20 | 6c 6f 63 61 74 69 6f 6e |ecified |location|
|000002a0| 73 20 69 6e 43 74 68 65 | 20 63 75 72 72 65 6e 74 |s inCthe| current|
|000002b0| 20 47 72 61 66 50 6f 72 | 74 2e 20 20 49 74 20 4f | GrafPor|t. It O|
|000002c0| 66 66 65 72 73 20 61 75 | 74 6f 2d 63 65 6e 74 65 |ffers au|to-cente|
|000002d0| 72 69 6e 67 20 61 6e 64 | 20 4e 65 77 2d 4c 69 6e |ring and| New-Lin|
|000002e0| 65 20 6d 6f 64 65 73 2e | 35 49 66 20 68 20 3d 3d |e modes.|5If h ==|
|000002f0| 20 30 20 74 68 65 6e 20 | 69 74 20 75 73 65 73 20 | 0 then |it uses |
|00000300| 74 68 65 20 6c 61 73 74 | 20 28 63 75 72 72 65 6e |the last| (curren|
|00000310| 74 29 20 68 20 70 6f 73 | 69 74 69 6f 6e 2e 35 49 |t) h pos|ition.5I|
|00000320| 66 20 76 20 3d 3d 20 30 | 20 74 68 65 6e 20 69 74 |f v == 0| then it|
|00000330| 20 75 73 65 73 20 74 68 | 65 20 6c 61 73 74 20 28 | uses th|e last (|
|00000340| 63 75 72 72 65 6e 74 29 | 20 76 20 70 6f 73 69 74 |current)| v posit|
|00000350| 69 6f 6e 2e 36 49 66 20 | 78 20 3c 20 30 20 73 74 |ion.6If |x < 0 st|
|00000360| 72 69 6e 67 20 69 73 20 | 63 65 6e 74 65 72 65 64 |ring is |centered|
|00000370| 20 69 6e 73 69 64 65 20 | 70 6f 72 74 52 65 63 74 | inside |portRect|
|00000380| 2e 20 20 49 66 20 79 20 | 3c 20 30 00 39 73 74 72 |. If y |< 0.9str|
|00000390| 69 6e 67 20 69 73 20 6f | 66 66 73 65 74 20 2d 79 |ing is o|ffset -y|
|000003a0| 20 6c 69 6e 65 73 20 66 | 72 6f 6d 20 6c 61 73 74 | lines f|rom last|
|000003b0| 20 28 63 75 72 72 65 6e | 74 29 20 76 20 70 6f 73 | (curren|t) v pos|
|000003c0| 69 74 69 6f 6e 2e 3d 4f | 74 68 65 72 77 69 73 65 |ition.=O|therwise|
|000003d0| 2c 20 68 20 61 6e 64 20 | 76 20 72 65 70 72 65 73 |, h and |v repres|
|000003e0| 65 6e 74 20 74 68 65 20 | 64 65 73 69 72 65 64 20 |ent the |desired |
|000003f0| 78 20 61 6e 64 20 79 20 | 63 6f 6f 72 64 69 6e 61 |x and y |coordina|
|00000400| 74 65 73 2e 1a 3c 3c 20 | 54 68 69 73 20 77 61 73 |tes..<< |This was|
|00000410| 20 64 72 61 77 6e 20 62 | 79 2e 2e 2e 20 3e 3e 00 | drawn b|y... >>.|
|00000420| 0e 2e 2e 2e 43 61 6c 6c | 69 6e 67 3a 20 20 20 00 |....Call|ing: .|
|00000430| 36 50 53 74 72 44 72 61 | 77 28 31 2c 20 22 5c 70 |6PStrDra|w(1, "\p|
|00000440| 3c 3c 20 54 68 69 73 20 | 77 61 73 20 64 72 61 77 |<< This |was draw|
|00000450| 6e 20 62 79 2e 2e 2e 20 | 3e 3e 22 2c 20 43 45 4e |n by... |>>", CEN|
|00000460| 2c 20 4e 4c 31 29 3b 00 | 12 28 66 6f 6e 74 2c 20 |, NL1);.|.(font, |
|00000470| 73 69 7a 65 2c 20 66 61 | 63 65 29 00 07 53 65 74 |size, fa|ce)..Set|
|00000480| 46 6f 6e 74 14 66 6f 6e | 74 20 20 2d 20 20 46 6f |Font.fon|t - Fo|
|00000490| 6e 74 20 6e 75 6d 62 65 | 72 00 12 73 69 7a 65 20 |nt numbe|r..size |
|000004a0| 20 2d 20 20 46 6f 6e 74 | 20 73 69 7a 65 00 13 66 | - Font| size..f|
|000004b0| 61 63 65 20 20 2d 20 20 | 46 6f 6e 74 20 73 74 79 |ace - |Font sty|
|000004c0| 6c 65 25 53 65 74 46 6f | 6e 74 28 29 20 73 65 74 |le%SetFo|nt() set|
|000004d0| 73 20 74 68 65 20 74 78 | 46 6f 6e 74 2c 20 74 78 |s the tx|Font, tx|
|000004e0| 53 69 7a 65 20 61 6e 64 | 26 74 78 46 61 63 65 20 |Size and|&txFace |
|000004f0| 66 69 65 6c 64 73 20 6f | 66 20 74 68 65 20 63 75 |fields o|f the cu|
|00000500| 72 72 65 6e 74 20 47 72 | 61 66 50 6f 72 74 2e 00 |rrent Gr|afPort..|
|00000510| 08 43 61 6c 6c 69 6e 67 | 3a 00 19 53 65 74 46 6f |.Calling|:..SetFo|
|00000520| 6e 74 28 6d 6f 6e 61 63 | 6f 2c 20 39 2c 20 62 6f |nt(monac|o, 9, bo|
|00000530| 6c 64 29 3b 18 50 72 6f | 64 75 63 65 73 20 53 61 |ld);.Pro|duces Sa|
|00000540| 6d 65 20 52 65 73 75 6c | 74 20 41 73 3a 00 11 54 |me Resul|t As:..T|
|00000550| 65 78 74 46 6f 6e 74 28 | 6d 6f 6e 61 63 6f 29 3b |extFont(|monaco);|
|00000560| 0c 54 65 78 74 53 69 7a | 65 28 39 29 3b 00 0f 54 |.TextSiz|e(9);..T|
|00000570| 65 78 74 46 61 63 65 28 | 62 6f 6c 64 29 3b 21 28 |extFace(|bold);!(|
|00000580| 74 79 70 65 2c 20 6e 75 | 6d 50 74 72 2c 20 73 2c |type, nu|mPtr, s,|
|00000590| 20 66 6f 72 6d 61 74 2c | 20 70 6c 61 63 65 73 29 | format,| places)|
|000005a0| 08 4e 75 6d 32 50 53 74 | 72 00 36 74 79 70 65 20 |.Num2PSt|r.6type |
|000005b0| 20 20 20 2d 20 20 43 49 | 4e 54 2c 20 43 4c 4f 4e | - CI|NT, CLON|
|000005c0| 47 2c 20 43 43 4f 4d 50 | 2c 20 43 46 4c 4f 41 54 |G, CCOMP|, CFLOAT|
|000005d0| 2c 20 43 53 48 4f 52 54 | 44 42 4c 2c 20 43 44 42 |, CSHORT|DBL, CDB|
|000005e0| 4c 00 2c 6e 75 6d 50 74 | 72 20 20 2d 20 20 41 64 |L.,numPt|r - Ad|
|000005f0| 64 72 65 73 73 20 6f 66 | 20 61 20 67 69 76 65 6e |dress of| a given|
|00000600| 20 74 79 70 65 20 6f 66 | 20 6e 75 6d 62 65 72 00 | type of| number.|
|00000610| 3d 73 20 20 20 20 20 20 | 20 2d 20 20 50 61 73 63 |=s | - Pasc|
|00000620| 61 6c 20 73 74 72 69 6e | 67 20 74 6f 20 72 65 63 |al strin|g to rec|
|00000630| 69 65 76 65 20 74 68 65 | 20 73 74 72 69 6e 67 20 |ieve the| string |
|00000640| 72 65 70 72 65 73 65 6e | 74 61 74 69 6f 6e 36 66 |represen|tation6f|
|00000650| 6f 72 6d 61 74 20 20 2d | 20 20 44 45 43 20 6f 72 |ormat -| DEC or|
|00000660| 20 53 43 49 20 28 64 65 | 63 69 6d 61 6c 20 6f 72 | SCI (de|cimal or|
|00000670| 20 73 63 69 65 6e 74 69 | 66 69 63 20 6e 6f 74 61 | scienti|fic nota|
|00000680| 74 69 6f 6e 29 00 3d 70 | 6c 61 63 65 73 20 20 2d |tion).=p|laces -|
|00000690| 20 20 4e 75 6d 62 65 72 | 20 6f 66 20 64 65 63 69 | Number| of deci|
|000006a0| 6d 61 6c 20 70 6c 61 63 | 65 73 20 64 65 73 69 72 |mal plac|es desir|
|000006b0| 65 64 20 69 6e 20 72 65 | 70 72 65 73 65 6e 74 61 |ed in re|presenta|
|000006c0| 74 69 6f 6e 3c 4e 75 6d | 32 50 53 74 72 28 29 20 |tion<Num|2PStr() |
|000006d0| 63 72 65 61 74 65 73 20 | 61 20 70 61 73 63 61 6c |creates |a pascal|
|000006e0| 20 73 74 72 69 6e 67 20 | 72 65 70 72 65 73 65 6e | string |represen|
|000006f0| 74 61 74 69 6f 6e 20 6f | 66 20 61 20 67 69 76 65 |tation o|f a give|
|00000700| 6e 00 38 74 79 70 65 20 | 6f 66 20 6e 75 6d 62 65 |n.8type |of numbe|
|00000710| 72 20 69 6e 20 65 69 74 | 68 65 72 20 64 65 63 69 |r in eit|her deci|
|00000720| 6d 61 6c 20 6f 72 20 73 | 63 69 65 6e 74 69 66 69 |mal or s|cientifi|
|00000730| 63 20 6e 6f 74 61 74 69 | 6f 6e 2e 00 c0 1c eb 79 |c notati|on.....y|
|00000740| a2 c7 f3 5b a7 81 2e 47 | 69 76 65 6e 3a 20 20 20 |...[...G|iven: |
|00000750| 20 20 20 20 20 61 5f 64 | 6f 75 62 6c 65 20 3d 3d | a_d|ouble ==|
|00000760| 20 2d 39 38 37 36 35 34 | 33 32 31 2e 39 38 37 36 | -987654|321.9876|
|00000770| 35 34 33 32 31 00 3b 43 | 61 6c 6c 69 6e 67 3a 20 |54321.;C|alling: |
|00000780| 20 20 20 20 20 4e 75 6d | 32 50 53 74 72 28 43 44 | Num|2PStr(CD|
|00000790| 42 4c 2c 20 26 61 5f 64 | 6f 75 62 6c 65 2c 20 73 |BL, &a_d|ouble, s|
|000007a0| 31 5f 53 74 72 32 35 35 | 2c 20 44 45 43 2c 20 39 |1_Str255|, DEC, 9|
|000007b0| 29 3b 1e 52 65 73 75 6c | 74 73 20 49 6e 3a 20 20 |);.Resul|ts In: |
|000007c0| 20 73 31 5f 53 74 72 32 | 35 35 20 3d 3d 20 22 5c | s1_Str2|55 == "\|
|000007d0| 70 00 01 22 3c 43 61 6c | 6c 69 6e 67 3a 20 20 20 |p.."<Cal|ling: |
|000007e0| 20 20 20 4e 75 6d 32 50 | 53 74 72 28 43 44 42 4c | Num2P|Str(CDBL|
|000007f0| 2c 20 26 61 5f 64 6f 75 | 62 6c 65 2c 20 73 31 5f |, &a_dou|ble, s1_|
|00000800| 53 74 72 32 35 35 2c 20 | 53 43 49 2c 20 31 37 29 |Str255, |SCI, 17)|
|00000810| 3b 00 1e 52 65 73 75 6c | 74 73 20 49 6e 3a 20 20 |;..Resul|ts In: |
|00000820| 20 73 31 5f 53 74 72 32 | 35 35 20 3d 3d 20 22 5c | s1_Str2|55 == "\|
|00000830| 70 00 01 22 11 28 73 2c | 20 74 79 70 65 2c 20 6e |p..".(s,| type, n|
|00000840| 75 6d 50 74 72 29 08 50 | 53 74 72 32 4e 75 6d 00 |umPtr).P|Str2Num.|
|00000850| 33 73 20 20 20 20 20 20 | 20 2d 20 20 50 61 73 63 |3s | - Pasc|
|00000860| 61 6c 20 73 74 72 69 6e | 67 20 72 65 70 72 65 73 |al strin|g repres|
|00000870| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 61 20 6e 75 |entation| of a nu|
|00000880| 6d 62 65 72 36 74 79 70 | 65 20 20 20 20 2d 20 20 |mber6typ|e - |
|00000890| 43 49 4e 54 2c 20 43 4c | 4f 4e 47 2c 20 43 43 4f |CINT, CL|ONG, CCO|
|000008a0| 4d 50 2c 20 43 46 4c 4f | 41 54 2c 20 43 53 48 4f |MP, CFLO|AT, CSHO|
|000008b0| 52 54 44 42 4c 2c 20 43 | 44 42 4c 00 2c 6e 75 6d |RTDBL, C|DBL.,num|
|000008c0| 50 74 72 20 20 2d 20 20 | 41 64 64 72 65 73 73 20 |Ptr - |Address |
|000008d0| 6f 66 20 61 20 67 69 76 | 65 6e 20 74 79 70 65 20 |of a giv|en type |
|000008e0| 6f 66 20 6e 75 6d 62 65 | 72 00 2c 50 53 74 72 32 |of numbe|r.,PStr2|
|000008f0| 4e 75 6d 28 29 20 73 65 | 74 73 20 61 20 67 69 76 |Num() se|ts a giv|
|00000900| 65 6e 20 74 79 70 65 20 | 6f 66 20 6e 75 6d 62 65 |en type |of numbe|
|00000910| 72 20 65 71 75 61 6c 00 | 30 74 6f 20 74 68 65 20 |r equal.|0to the |
|00000920| 76 61 6c 75 65 20 72 65 | 70 72 65 73 65 6e 74 65 |value re|presente|
|00000930| 64 20 69 6e 20 74 68 65 | 20 70 61 73 63 61 6c 20 |d in the| pascal |
|00000940| 73 74 72 69 6e 67 20 73 | 2e 00 14 2d 31 32 33 34 |string s|...-1234|
|00000950| 35 36 37 38 39 2e 39 38 | 37 36 35 34 33 32 31 00 |56789.98|7654321.|
|00000960| 33 47 69 76 65 6e 3a 20 | 20 20 20 20 20 20 20 73 |3Given: | s|
|00000970| 31 5f 53 74 72 32 35 35 | 20 3d 3d 20 22 5c 70 2d |1_Str255| == "\p-|
|00000980| 31 32 33 34 35 36 37 38 | 39 2e 39 38 37 36 35 34 |12345678|9.987654|
|00000990| 33 32 31 22 33 43 61 6c | 6c 69 6e 67 3a 20 20 20 |321"3Cal|ling: |
|000009a0| 20 20 20 50 53 74 72 32 | 4e 75 6d 28 73 31 5f 53 | PStr2|Num(s1_S|
|000009b0| 74 72 32 35 35 2c 20 43 | 44 42 4c 2c 20 26 61 5f |tr255, C|DBL, &a_|
|000009c0| 64 6f 75 62 6c 65 29 3b | 1a 52 65 73 75 6c 74 73 |double);|.Results|
|000009d0| 20 49 6e 3a 20 20 20 61 | 5f 64 6f 75 62 6c 65 20 | In: a|_double |
|000009e0| 3d 3d 20 00 16 28 73 72 | 63 2c 20 70 6f 73 2c 20 |== ..(sr|c, pos, |
|000009f0| 63 6f 75 6e 74 2c 20 64 | 73 74 29 00 08 50 53 74 |count, d|st)..PSt|
|00000a00| 72 43 6f 70 79 00 1e 73 | 72 63 20 20 20 20 2d 20 |rCopy..s|rc - |
|00000a10| 20 53 6f 75 72 63 65 20 | 70 61 73 63 61 6c 20 73 | Source |pascal s|
|00000a20| 74 72 69 6e 67 00 34 70 | 6f 73 20 20 20 20 2d 20 |tring.4p|os - |
|00000a30| 20 43 68 61 72 61 63 74 | 65 72 20 70 6f 73 69 74 | Charact|er posit|
|00000a40| 69 6f 6e 20 69 6e 20 73 | 72 63 20 74 6f 20 73 74 |ion in s|rc to st|
|00000a50| 61 72 74 20 63 6f 70 79 | 69 6e 67 00 26 63 6f 75 |art copy|ing.&cou|
|00000a60| 6e 74 20 20 2d 20 20 4e | 75 6d 62 65 72 20 6f 66 |nt - N|umber of|
|00000a70| 20 63 68 61 72 61 63 74 | 65 72 73 20 74 6f 20 63 | charact|ers to c|
|00000a80| 6f 70 79 00 23 64 73 74 | 20 20 20 20 2d 20 20 44 |opy.#dst| - D|
|00000a90| 65 73 74 69 6e 61 74 69 | 6f 6e 20 70 61 73 63 61 |estinati|on pasca|
|00000aa0| 6c 20 73 74 72 69 6e 67 | 27 50 53 74 72 43 6f 70 |l string|'PStrCop|
|00000ab0| 79 28 29 20 63 6f 70 69 | 65 73 20 63 6f 75 6e 74 |y() copi|es count|
|00000ac0| 20 63 68 61 72 61 63 74 | 65 72 73 20 66 72 6f 6d | charact|ers from|
|00000ad0| 25 63 68 61 72 61 63 74 | 65 72 20 70 6f 73 69 74 |%charact|er posit|
|00000ae0| 69 6f 6e 20 70 6f 73 20 | 6f 66 20 73 72 63 20 74 |ion pos |of src t|
|00000af0| 6f 20 64 73 74 2e 17 54 | 68 69 73 20 69 73 20 61 |o dst..T|his is a|
|00000b00| 20 70 61 73 63 61 6c 20 | 73 74 72 69 6e 67 36 47 | pascal |string6G|
|00000b10| 69 76 65 6e 3a 20 20 20 | 20 20 20 20 20 73 31 5f |iven: | s1_|
|00000b20| 53 74 72 32 35 35 20 3d | 3d 20 22 5c 70 54 68 69 |Str255 =|= "\pThi|
|00000b30| 73 20 69 73 20 61 20 70 | 61 73 63 61 6c 20 73 74 |s is a p|ascal st|
|00000b40| 72 69 6e 67 22 00 35 43 | 61 6c 6c 69 6e 67 3a 20 |ring".5C|alling: |
|00000b50| 20 20 20 20 20 50 53 74 | 72 43 6f 70 79 28 73 31 | PSt|rCopy(s1|
|00000b60| 5f 53 74 72 32 35 35 2c | 20 31 2c 20 41 4c 4c 2c |_Str255,| 1, ALL,|
|00000b70| 20 73 32 5f 53 74 72 32 | 35 35 29 3b 1e 52 65 73 | s2_Str2|55);.Res|
|00000b80| 75 6c 74 73 20 49 6e 3a | 20 20 20 73 32 5f 53 74 |ults In:| s2_St|
|00000b90| 72 32 35 35 20 3d 3d 20 | 22 5c 70 00 01 22 34 43 |r255 == |"\p.."4C|
|00000ba0| 61 6c 6c 69 6e 67 3a 20 | 20 20 20 20 20 50 53 74 |alling: | PSt|
|00000bb0| 72 43 6f 70 79 28 73 32 | 5f 53 74 72 32 35 35 2c |rCopy(s2|_Str255,|
|00000bc0| 20 31 31 2c 20 36 2c 20 | 73 31 5f 53 74 72 32 35 | 11, 6, |s1_Str25|
|00000bd0| 35 29 3b 00 1e 52 65 73 | 75 6c 74 73 20 49 6e 3a |5);..Res|ults In:|
|00000be0| 20 20 20 73 31 5f 53 74 | 72 32 35 35 20 3d 3d 20 | s1_St|r255 == |
|00000bf0| 22 5c 70 00 01 22 11 28 | 63 6f 75 6e 74 2c 20 64 |"\p..".(|count, d|
|00000c00| 73 74 2c 20 2e 2e 2e 29 | 07 50 53 74 72 43 61 74 |st, ...)|.PStrCat|
|00000c10| 35 63 6f 75 6e 74 20 20 | 2d 20 20 4e 75 6d 62 65 |5count |- Numbe|
|00000c20| 72 20 6f 66 20 73 74 72 | 69 6e 67 20 61 72 67 2e |r of str|ing arg.|
|00000c30| 20 70 72 65 73 65 6e 74 | 20 49 4e 43 4c 55 44 49 | present| INCLUDI|
|00000c40| 4e 47 20 64 73 74 23 64 | 73 74 20 20 20 20 2d 20 |NG dst#d|st - |
|00000c50| 20 44 65 73 74 69 6e 61 | 74 69 6f 6e 20 70 61 73 | Destina|tion pas|
|00000c60| 63 61 6c 20 73 74 72 69 | 6e 67 31 2e 2e 2e 20 20 |cal stri|ng1... |
|00000c70| 20 20 2d 20 20 31 2d 32 | 39 20 61 64 64 69 74 69 | - 1-2|9 additi|
|00000c80| 6f 6e 61 6c 20 70 61 73 | 63 61 6c 20 73 74 72 69 |onal pas|cal stri|
|00000c90| 6e 67 20 61 72 67 75 6d | 65 6e 74 73 3f 50 53 74 |ng argum|ents?PSt|
|00000ca0| 72 43 61 74 28 29 20 63 | 6f 6e 63 61 74 65 6e 61 |rCat() c|oncatena|
|00000cb0| 74 65 73 20 31 2d 32 39 | 20 61 64 64 69 74 69 6f |tes 1-29| additio|
|00000cc0| 6e 61 6c 20 70 61 73 63 | 61 6c 20 73 74 72 69 6e |nal pasc|al strin|
|00000cd0| 67 73 20 6f 6e 74 6f 20 | 64 73 74 2e 0a 54 68 61 |gs onto |dst..Tha|
|00000ce0| 6e 6b 73 20 66 6f 72 00 | 29 47 69 76 65 6e 3a 20 |nks for.|)Given: |
|00000cf0| 20 20 20 20 20 20 20 73 | 31 5f 53 74 72 32 35 35 | s|1_Str255|
|00000d00| 20 3d 3d 20 22 5c 70 54 | 68 61 6e 6b 73 20 66 6f | == "\pT|hanks fo|
|00000d10| 72 22 3c 43 61 6c 6c 69 | 6e 67 3a 20 20 20 20 20 |r"<Calli|ng: |
|00000d20| 20 50 53 74 72 43 61 74 | 28 33 2c 20 73 31 5f 53 | PStrCat|(3, s1_S|
|00000d30| 74 72 32 35 35 2c 20 22 | 5c 70 20 74 68 65 20 68 |tr255, "|\p the h|
|00000d40| 6f 74 22 2c 20 22 5c 70 | 74 69 70 21 22 29 3b 00 |ot", "\p|tip!");.|
|00000d50| 08 20 74 68 65 20 68 6f | 74 00 05 20 74 69 70 21 |. the ho|t.. tip!|
|00000d60| 1e 52 65 73 75 6c 74 73 | 20 49 6e 3a 20 20 20 73 |.Results| In: s|
|00000d70| 31 5f 53 74 72 32 35 35 | 20 3d 3d 20 22 5c 70 00 |1_Str255| == "\p.|
|00000d80| 01 22 0f 28 73 72 63 2c | 20 64 73 74 2c 20 70 6f |.".(src,| dst, po|
|00000d90| 73 29 07 50 53 74 72 49 | 6e 73 28 73 72 63 20 20 |s).PStrI|ns(src |
|00000da0| 2d 20 20 50 61 73 63 61 | 6c 20 73 74 72 69 6e 67 |- Pasca|l string|
|00000db0| 20 74 6f 20 69 6e 73 65 | 72 74 20 69 6e 74 6f 20 | to inse|rt into |
|00000dc0| 64 73 74 00 36 64 73 74 | 20 20 2d 20 20 44 65 73 |dst.6dst| - Des|
|00000dd0| 74 69 6e 61 74 69 6f 6e | 20 70 61 73 63 61 6c 20 |tination| pascal |
|00000de0| 73 74 72 69 6e 67 20 28 | 72 65 63 69 65 76 65 73 |string (|recieves|
|00000df0| 20 69 6e 73 65 72 74 69 | 6f 6e 29 00 2e 70 6f 73 | inserti|on)..pos|
|00000e00| 20 20 2d 20 20 43 68 61 | 72 61 63 74 65 72 20 70 | - Cha|racter p|
|00000e10| 6f 73 69 74 69 6f 6e 20 | 6f 66 20 69 6e 73 65 72 |osition |of inser|
|00000e20| 74 69 6f 6e 20 69 6e 20 | 64 73 74 00 26 50 53 74 |tion in |dst.&PSt|
|00000e30| 72 49 6e 73 28 29 20 69 | 6e 73 65 72 74 73 20 73 |rIns() i|nserts s|
|00000e40| 72 63 20 61 74 20 70 6f | 73 20 69 6e 74 6f 20 64 |rc at po|s into d|
|00000e50| 73 74 2e 00 0d 54 68 61 | 74 20 69 73 20 6e 69 63 |st...Tha|t is nic|
|00000e60| 65 2e 2c 47 69 76 65 6e | 3a 20 20 20 20 20 20 20 |e.,Given|: |
|00000e70| 20 73 31 5f 53 74 72 32 | 35 35 20 3d 3d 20 22 5c | s1_Str2|55 == "\|
|00000e80| 70 54 68 61 74 20 69 73 | 20 6e 69 63 65 2e 22 00 |pThat is| nice.".|
|00000e90| 2f 43 61 6c 6c 69 6e 67 | 3a 20 20 20 20 20 20 50 |/Calling|: P|
|00000ea0| 53 74 72 49 6e 73 28 22 | 5c 70 76 65 72 79 20 22 |StrIns("|\pvery "|
|00000eb0| 2c 20 73 31 5f 53 74 72 | 32 35 35 2c 20 39 29 3b |, s1_Str|255, 9);|
|00000ec0| 05 76 65 72 79 20 1e 52 | 65 73 75 6c 74 73 20 49 |.very .R|esults I|
|00000ed0| 6e 3a 20 20 20 73 31 5f | 53 74 72 32 35 35 20 3d |n: s1_|Str255 =|
|00000ee0| 3d 20 22 5c 70 00 01 22 | 0f 28 73 2c 20 70 6f 73 |= "\p.."|.(s, pos|
|00000ef0| 2c 20 63 6f 75 6e 74 29 | 07 50 53 74 72 44 65 6c |, count)|.PStrDel|
|00000f00| 2a 73 20 20 20 20 20 20 | 2d 20 20 50 61 73 63 61 |*s |- Pasca|
|00000f10| 6c 20 73 74 72 69 6e 67 | 20 72 65 63 69 65 76 69 |l string| recievi|
|00000f20| 6e 67 20 64 65 6c 65 74 | 69 6f 6e 00 2e 70 6f 73 |ng delet|ion..pos|
|00000f30| 20 20 20 20 2d 20 20 43 | 68 61 72 61 63 74 65 72 | - C|haracter|
|00000f40| 20 70 6f 73 69 74 69 6f | 6e 20 74 6f 20 73 74 61 | positio|n to sta|
|00000f50| 72 74 20 64 65 6c 65 74 | 69 6e 67 00 2c 63 6f 75 |rt delet|ing.,cou|
|00000f60| 6e 74 20 20 2d 20 20 4e | 75 6d 62 65 72 20 6f 66 |nt - N|umber of|
|00000f70| 20 63 68 61 72 61 63 74 | 65 72 73 20 74 6f 20 62 | charact|ers to b|
|00000f80| 65 20 64 65 6c 65 74 65 | 64 00 3a 50 53 74 72 44 |e delete|d.:PStrD|
|00000f90| 65 6c 28 29 20 64 65 6c | 65 74 65 73 20 63 6f 75 |el() del|etes cou|
|00000fa0| 6e 74 20 63 68 61 72 61 | 63 74 65 72 73 20 73 74 |nt chara|cters st|
|00000fb0| 61 72 74 69 6e 67 20 61 | 74 20 70 6f 73 20 66 72 |arting a|t pos fr|
|00000fc0| 6f 6d 20 73 2e 00 14 48 | 65 20 68 61 73 20 6e 6f |om s...H|e has no|
|00000fd0| 74 20 66 69 6e 69 73 68 | 65 64 2e 00 33 47 69 76 |t finish|ed..3Giv|
|00000fe0| 65 6e 3a 20 20 20 20 20 | 20 20 20 73 31 5f 53 74 |en: | s1_St|
|00000ff0| 72 32 35 35 20 3d 3d 20 | 22 5c 70 48 65 20 68 61 |r255 == |"\pHe ha|
|00001000| 73 20 6e 6f 74 20 66 69 | 6e 69 73 68 65 64 2e 22 |s not fi|nished."|
|00001010| 27 43 61 6c 6c 69 6e 67 | 3a 20 20 20 20 20 20 50 |'Calling|: P|
|00001020| 53 74 72 44 65 6c 28 73 | 31 5f 53 74 72 32 35 35 |StrDel(s|1_Str255|
|00001030| 2c 20 38 2c 20 34 29 3b | 1e 52 65 73 75 6c 74 73 |, 8, 4);|.Results|
|00001040| 20 49 6e 3a 20 20 20 73 | 31 5f 53 74 72 32 35 35 | In: s|1_Str255|
|00001050| 20 3d 3d 20 22 5c 70 00 | 01 22 16 28 73 72 63 2c | == "\p.|.".(src,|
|00001060| 20 70 6f 73 2c 20 63 6f | 75 6e 74 2c 20 64 73 74 | pos, co|unt, dst|
|00001070| 29 00 07 50 53 74 72 52 | 65 70 2d 64 73 74 20 20 |)..PStrR|ep-dst |
|00001080| 20 20 2d 20 20 50 61 73 | 63 61 6c 20 73 74 72 69 | - Pas|cal stri|
|00001090| 6e 67 20 72 65 63 69 65 | 76 69 6e 67 20 72 65 70 |ng recie|ving rep|
|000010a0| 6c 61 63 65 6d 65 6e 74 | 2f 70 6f 73 20 20 20 20 |lacement|/pos |
|000010b0| 2d 20 20 43 68 61 72 61 | 63 74 65 72 20 70 6f 73 |- Chara|cter pos|
|000010c0| 69 74 69 6f 6e 20 74 6f | 20 73 74 61 72 74 20 72 |ition to| start r|
|000010d0| 65 70 6c 61 63 69 6e 67 | 29 63 6f 75 6e 74 20 20 |eplacing|)count |
|000010e0| 2d 20 20 4e 75 6d 62 65 | 72 20 6f 66 20 63 68 61 |- Numbe|r of cha|
|000010f0| 72 61 63 74 65 72 73 20 | 74 6f 20 72 65 70 6c 61 |racters |to repla|
|00001100| 63 65 23 73 72 63 20 20 | 20 20 2d 20 20 50 61 73 |ce#src | - Pas|
|00001110| 63 61 6c 20 73 74 72 69 | 6e 67 20 72 65 70 6c 61 |cal stri|ng repla|
|00001120| 63 65 6d 65 6e 74 23 50 | 53 74 72 52 65 70 28 29 |cement#P|StrRep()|
|00001130| 20 72 65 70 6c 61 63 65 | 73 20 63 6f 75 6e 74 20 | replace|s count |
|00001140| 63 68 61 72 61 63 74 65 | 72 73 20 73 74 61 72 74 |characte|rs start|
|00001150| 69 6e 67 20 61 74 20 70 | 6f 73 20 69 6e 20 64 73 |ing at p|os in ds|
|00001160| 74 20 77 69 74 68 20 73 | 72 63 2e 00 0e 4a 61 6e |t with s|rc...Jan|
|00001170| 65 20 72 61 6e 20 68 6f | 6d 65 2e 00 2d 47 69 76 |e ran ho|me..-Giv|
|00001180| 65 6e 3a 20 20 20 20 20 | 20 20 20 73 31 5f 53 74 |en: | s1_St|
|00001190| 72 32 35 35 20 3d 3d 20 | 22 5c 70 4a 61 6e 65 20 |r255 == |"\pJane |
|000011a0| 72 61 6e 20 68 6f 6d 65 | 2e 22 33 43 61 6c 6c 69 |ran home|."3Calli|
|000011b0| 6e 67 3a 20 20 20 20 20 | 20 50 53 74 72 52 65 70 |ng: | PStrRep|
|000011c0| 28 73 31 5f 53 74 72 32 | 35 35 2c 20 36 2c 20 33 |(s1_Str2|55, 6, 3|
|000011d0| 2c 20 22 5c 70 77 61 6c | 6b 65 64 22 29 3b 06 77 |, "\pwal|ked");.w|
|000011e0| 61 6c 6b 65 64 00 1e 52 | 65 73 75 6c 74 73 20 49 |alked..R|esults I|
|000011f0| 6e 3a 20 20 20 73 31 5f | 53 74 72 32 35 35 20 3d |n: s1_|Str255 =|
|00001200| 3d 20 22 5c 70 00 01 22 | 0b 28 73 2c 20 6c 65 6e |= "\p.."|.(s, len|
|00001210| 2c 20 63 29 0a 50 53 74 | 72 46 69 78 4c 65 6e 00 |, c).PSt|rFixLen.|
|00001220| 15 73 20 20 20 20 2d 20 | 20 50 61 73 63 61 6c 20 |.s - | Pascal |
|00001230| 73 74 72 69 6e 67 16 6c | 65 6e 20 20 2d 20 20 44 |string.l|en - D|
|00001240| 65 73 69 72 65 64 20 6c | 65 6e 67 74 68 00 2f 63 |esired l|ength./c|
|00001250| 20 20 20 20 2d 20 20 43 | 68 61 72 61 63 74 65 72 | - C|haracter|
|00001260| 20 75 73 65 64 20 74 6f | 20 70 61 64 20 74 6f 20 | used to| pad to |
|00001270| 67 72 65 61 74 65 72 20 | 6c 65 6e 67 74 68 2f 50 |greater |length/P|
|00001280| 53 74 72 46 69 78 4c 65 | 6e 28 29 20 67 61 75 72 |StrFixLe|n() gaur|
|00001290| 61 6e 74 65 65 73 20 74 | 68 61 74 20 74 68 65 20 |antees t|hat the |
|000012a0| 6c 65 6e 67 74 68 20 6f | 66 20 73 20 74 6f 30 62 |length o|f s to0b|
|000012b0| 65 20 65 71 75 61 6c 20 | 74 6f 20 6c 65 6e 20 62 |e equal |to len b|
|000012c0| 79 20 63 68 6f 70 70 69 | 6e 67 20 65 78 74 72 61 |y choppi|ng extra|
|000012d0| 20 63 68 61 72 61 63 74 | 65 72 73 20 6f 66 66 00 | charact|ers off.|
|000012e0| 31 6f 72 20 62 79 20 70 | 61 64 64 69 6e 67 2d 6f |1or by p|adding-o|
|000012f0| 75 74 20 77 69 74 68 20 | 61 73 20 6d 61 6e 79 20 |ut with |as many |
|00001300| 63 27 73 20 61 73 20 6e | 65 63 63 65 73 73 61 72 |c's as n|eccessar|
|00001310| 79 2e 08 4a 6f 68 6e 20 | 44 6f 65 00 27 47 69 76 |y..John |Doe.'Giv|
|00001320| 65 6e 3a 20 20 20 20 20 | 20 20 20 73 31 5f 53 74 |en: | s1_St|
|00001330| 72 32 35 35 20 3d 3d 20 | 22 5c 70 4a 6f 68 6e 20 |r255 == |"\pJohn |
|00001340| 44 6f 65 22 2d 43 61 6c | 6c 69 6e 67 3a 20 20 20 |Doe"-Cal|ling: |
|00001350| 20 20 20 50 53 74 72 46 | 69 78 4c 65 6e 28 73 31 | PStrF|ixLen(s1|
|00001360| 5f 53 74 72 32 35 35 2c | 20 31 30 2c 20 27 20 27 |_Str255,| 10, ' '|
|00001370| 29 3b 1e 52 65 73 75 6c | 74 73 20 49 6e 3a 20 20 |);.Resul|ts In: |
|00001380| 20 73 31 5f 53 74 72 32 | 35 35 20 3d 3d 20 22 5c | s1_Str2|55 == "\|
|00001390| 70 00 01 22 2c 43 61 6c | 6c 69 6e 67 3a 20 20 20 |p..",Cal|ling: |
|000013a0| 20 20 20 50 53 74 72 46 | 69 78 4c 65 6e 28 73 31 | PStrF|ixLen(s1|
|000013b0| 5f 53 74 72 32 35 35 2c | 20 34 2c 20 27 20 27 29 |_Str255,| 4, ' ')|
|000013c0| 3b 00 1e 52 65 73 75 6c | 74 73 20 49 6e 3a 20 20 |;..Resul|ts In: |
|000013d0| 20 73 31 5f 53 74 72 32 | 35 35 20 3d 3d 20 22 5c | s1_Str2|55 == "\|
|000013e0| 70 00 01 22 0b 28 70 2c | 20 74 2c 20 70 6f 73 29 |p..".(p,| t, pos)|
|000013f0| 08 50 53 74 72 46 69 6e | 64 00 31 70 20 20 20 20 |.PStrFin|d.1p |
|00001400| 2d 20 20 50 61 73 63 61 | 6c 20 73 74 72 69 6e 67 |- Pasca|l string|
|00001410| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 70 61 74 74 | contain|ing patt|
|00001420| 65 72 6e 20 74 6f 20 66 | 69 6e 64 2e 28 74 20 20 |ern to f|ind.(t |
|00001430| 20 20 2d 20 20 50 61 73 | 63 61 6c 20 73 74 72 69 | - Pas|cal stri|
|00001440| 6e 67 20 6f 66 20 74 65 | 78 74 20 74 6f 20 73 65 |ng of te|xt to se|
|00001450| 61 72 63 68 2e 00 33 70 | 6f 73 20 20 2d 20 20 43 |arch..3p|os - C|
|00001460| 68 61 72 61 63 74 65 72 | 20 70 6f 73 69 74 69 6f |haracter| positio|
|00001470| 6e 20 69 6e 20 74 20 74 | 6f 20 73 74 61 72 74 20 |n in t t|o start |
|00001480| 73 65 61 72 63 68 69 6e | 67 2e 2f 50 53 74 72 46 |searchin|g./PStrF|
|00001490| 69 6e 64 28 29 20 66 69 | 6e 64 73 20 74 68 65 20 |ind() fi|nds the |
|000014a0| 66 69 72 73 74 20 6f 63 | 63 75 72 61 6e 63 65 20 |first oc|curance |
|000014b0| 6f 66 20 70 20 69 6e 20 | 74 2e 2d 49 74 20 72 65 |of p in |t.-It re|
|000014c0| 74 75 72 6e 73 20 74 68 | 65 20 63 68 61 72 2e 70 |turns th|e char.p|
|000014d0| 6f 73 69 74 69 6f 6e 20 | 66 6f 75 6e 64 20 65 6c |osition |found el|
|000014e0| 73 65 20 7a 65 72 6f 2e | 0f 49 20 61 6d 20 74 68 |se zero.|.I am th|
|000014f0| 61 74 20 49 20 61 6d 2e | 2e 47 69 76 65 6e 3a 20 |at I am.|.Given: |
|00001500| 20 20 20 20 20 20 20 73 | 31 5f 53 74 72 32 35 35 | s|1_Str255|
|00001510| 20 3d 3d 20 22 5c 70 49 | 20 61 6d 20 74 68 61 74 | == "\pI| am that|
|00001520| 20 49 20 61 6d 2e 22 00 | 35 43 61 6c 6c 69 6e 67 | I am.".|5Calling|
|00001530| 3a 20 20 20 20 20 20 61 | 5f 69 6e 74 20 3d 20 50 |: a|_int = P|
|00001540| 53 74 72 46 69 6e 64 28 | 22 5c 70 61 6d 22 2c 20 |StrFind(|"\pam", |
|00001550| 73 31 5f 53 74 72 32 35 | 35 2c 20 31 29 3b 02 61 |s1_Str25|5, 1);.a|
|00001560| 6d 00 17 52 65 73 75 6c | 74 73 20 49 6e 3a 20 20 |m..Resul|ts In: |
|00001570| 20 61 5f 69 6e 74 20 3d | 3d 20 35 43 61 6c 6c 69 | a_int =|= 5Calli|
|00001580| 6e 67 3a 20 20 20 20 20 | 20 61 5f 69 6e 74 20 3d |ng: | a_int =|
|00001590| 20 50 53 74 72 46 69 6e | 64 28 22 5c 70 61 6d 22 | PStrFin|d("\pam"|
|000015a0| 2c 20 73 31 5f 53 74 72 | 32 35 35 2c 20 35 29 3b |, s1_Str|255, 5);|
|000015b0| 02 61 6d 00 17 52 65 73 | 75 6c 74 73 20 49 6e 3a |.am..Res|ults In:|
|000015c0| 20 20 20 61 5f 69 6e 74 | 20 3d 3d 20 06 28 73 2c | a_int| == .(s,|
|000015d0| 20 63 29 00 0a 50 53 74 | 72 46 69 6e 64 46 43 00 | c)..PSt|rFindFC.|
|000015e0| 1d 73 20 20 2d 20 20 50 | 61 73 63 61 6c 20 73 74 |.s - P|ascal st|
|000015f0| 72 69 6e 67 20 74 6f 20 | 73 65 61 72 63 68 17 63 |ring to |search.c|
|00001600| 20 20 2d 20 20 43 68 61 | 72 61 63 74 65 72 20 74 | - Cha|racter t|
|00001610| 6f 20 66 69 6e 64 31 50 | 53 74 72 46 69 6e 64 46 |o find1P|StrFindF|
|00001620| 43 28 29 20 66 69 6e 64 | 73 20 74 68 65 20 66 69 |C() find|s the fi|
|00001630| 72 73 74 20 6f 63 63 75 | 72 61 6e 63 65 20 6f 66 |rst occu|rance of|
|00001640| 20 63 20 69 6e 20 73 2e | 2d 49 74 20 72 65 74 75 | c in s.|-It retu|
|00001650| 72 6e 73 20 74 68 65 20 | 63 68 61 72 2e 70 6f 73 |rns the |char.pos|
|00001660| 69 74 69 6f 6e 20 66 6f | 75 6e 64 20 65 6c 73 65 |ition fo|und else|
|00001670| 20 7a 65 72 6f 2e 07 61 | 62 63 64 65 66 67 26 47 | zero..a|bcdefg&G|
|00001680| 69 76 65 6e 3a 20 20 20 | 20 20 20 20 20 73 31 5f |iven: | s1_|
|00001690| 53 74 72 32 35 35 20 3d | 3d 20 22 5c 70 61 62 63 |Str255 =|= "\pabc|
|000016a0| 64 65 66 67 22 00 31 43 | 61 6c 6c 69 6e 67 3a 20 |defg".1C|alling: |
|000016b0| 20 20 20 20 20 61 5f 69 | 6e 74 20 3d 20 50 53 74 | a_i|nt = PSt|
|000016c0| 72 46 69 6e 64 46 43 28 | 73 31 5f 53 74 72 32 35 |rFindFC(|s1_Str25|
|000016d0| 35 2c 20 27 65 27 29 3b | 17 52 65 73 75 6c 74 73 |5, 'e');|.Results|
|000016e0| 20 49 6e 3a 20 20 20 61 | 5f 69 6e 74 20 3d 3d 20 | In: a|_int == |
|000016f0| 06 28 73 2c 20 63 29 00 | 0a 50 53 74 72 46 69 6e |.(s, c).|.PStrFin|
|00001700| 64 4c 43 00 1d 73 20 20 | 2d 20 20 50 61 73 63 61 |dLC..s |- Pasca|
|00001710| 6c 20 73 74 72 69 6e 67 | 20 74 6f 20 73 65 61 72 |l string| to sear|
|00001720| 63 68 17 63 20 20 2d 20 | 20 43 68 61 72 61 63 74 |ch.c - | Charact|
|00001730| 65 72 20 74 6f 20 66 69 | 6e 64 30 50 53 74 72 46 |er to fi|nd0PStrF|
|00001740| 69 6e 64 46 43 28 29 20 | 66 69 6e 64 73 20 74 68 |indFC() |finds th|
|00001750| 65 20 6c 61 73 74 20 6f | 63 63 75 72 61 6e 63 65 |e last o|ccurance|
|00001760| 20 6f 66 20 63 20 69 6e | 20 73 2e 00 2d 49 74 20 | of c in| s..-It |
|00001770| 72 65 74 75 72 6e 73 20 | 74 68 65 20 63 68 61 72 |returns |the char|
|00001780| 2e 70 6f 73 69 74 69 6f | 6e 20 66 6f 75 6e 64 20 |.positio|n found |
|00001790| 65 6c 73 65 20 7a 65 72 | 6f 2e 0b 61 62 63 64 65 |else zer|o..abcde|
|000017a0| 20 61 62 63 64 65 2a 47 | 69 76 65 6e 3a 20 20 20 | abcde*G|iven: |
|000017b0| 20 20 20 20 20 73 31 5f | 53 74 72 32 35 35 20 3d | s1_|Str255 =|
|000017c0| 3d 20 22 5c 70 61 62 63 | 64 65 20 61 62 63 64 65 |= "\pabc|de abcde|
|000017d0| 22 00 31 43 61 6c 6c 69 | 6e 67 3a 20 20 20 20 20 |".1Calli|ng: |
|000017e0| 20 61 5f 69 6e 74 20 3d | 20 50 53 74 72 46 69 6e | a_int =| PStrFin|
|000017f0| 64 4c 43 28 73 31 5f 53 | 74 72 32 35 35 2c 20 27 |dLC(s1_S|tr255, '|
|00001800| 62 27 29 3b 17 52 65 73 | 75 6c 74 73 20 49 6e 3a |b');.Res|ults In:|
|00001810| 20 20 20 61 5f 69 6e 74 | 20 3d 3d 20 08 28 73 2c | a_int| == .(s,|
|00001820| 20 73 65 74 29 00 0a 50 | 53 74 72 46 69 6e 64 46 | set)..P|StrFindF|
|00001830| 53 00 1f 73 20 20 20 20 | 2d 20 20 50 61 73 63 61 |S..s |- Pasca|
|00001840| 6c 20 73 74 72 69 6e 67 | 20 74 6f 20 73 65 61 72 |l string| to sear|
|00001850| 63 68 37 73 65 74 20 20 | 2d 20 20 50 61 73 63 61 |ch7set |- Pasca|
|00001860| 6c 20 73 74 72 69 6e 67 | 20 63 6f 6e 73 69 64 65 |l string| conside|
|00001870| 72 65 64 20 61 73 20 61 | 20 73 65 74 20 6f 66 20 |red as a| set of |
|00001880| 63 68 61 72 61 63 74 65 | 72 73 39 50 53 74 72 46 |characte|rs9PStrF|
|00001890| 69 6e 64 46 53 28 29 20 | 66 69 6e 64 73 20 74 68 |indFS() |finds th|
|000018a0| 65 20 66 69 72 73 74 20 | 6f 63 63 75 72 61 6e 63 |e first |occuranc|
|000018b0| 65 20 69 6e 20 62 6f 74 | 68 20 73 20 61 6e 64 20 |e in bot|h s and |
|000018c0| 73 65 74 2e 2d 49 74 20 | 72 65 74 75 72 6e 73 20 |set.-It |returns |
|000018d0| 74 68 65 20 63 68 61 72 | 2e 70 6f 73 69 74 69 6f |the char|.positio|
|000018e0| 6e 20 66 6f 75 6e 64 20 | 65 6c 73 65 20 7a 65 72 |n found |else zer|
|000018f0| 6f 2e 11 54 68 69 73 20 | 77 6f 72 6b 73 20 67 72 |o..This |works gr|
|00001900| 65 61 74 21 30 47 69 76 | 65 6e 3a 20 20 20 20 20 |eat!0Giv|en: |
|00001910| 20 20 20 73 31 5f 53 74 | 72 32 35 35 20 3d 3d 20 | s1_St|r255 == |
|00001920| 22 5c 70 54 68 69 73 20 | 77 6f 72 6b 73 20 67 72 |"\pThis |works gr|
|00001930| 65 61 74 21 22 00 35 43 | 61 6c 6c 69 6e 67 3a 20 |eat!".5C|alling: |
|00001940| 20 20 20 20 20 61 5f 69 | 6e 74 20 3d 20 50 53 74 | a_i|nt = PSt|
|00001950| 72 46 69 6e 64 46 53 28 | 73 31 5f 53 74 72 32 35 |rFindFS(|s1_Str25|
|00001960| 35 2c 20 22 5c 70 61 62 | 63 22 29 3b 03 61 62 63 |5, "\pab|c");.abc|
|00001970| 17 52 65 73 75 6c 74 73 | 20 49 6e 3a 20 20 20 61 |.Results| In: a|
|00001980| 5f 69 6e 74 20 3d 3d 20 | 08 28 73 2c 20 73 65 74 |_int == |.(s, set|
|00001990| 29 00 0a 50 53 74 72 46 | 69 6e 64 4c 53 00 1f 73 |)..PStrF|indLS..s|
|000019a0| 20 20 20 20 2d 20 20 50 | 61 73 63 61 6c 20 73 74 | - P|ascal st|
|000019b0| 72 69 6e 67 20 74 6f 20 | 73 65 61 72 63 68 37 73 |ring to |search7s|
|000019c0| 65 74 20 20 2d 20 20 50 | 61 73 63 61 6c 20 73 74 |et - P|ascal st|
|000019d0| 72 69 6e 67 20 63 6f 6e | 73 69 64 65 72 65 64 20 |ring con|sidered |
|000019e0| 61 73 20 61 20 73 65 74 | 20 6f 66 20 63 68 61 72 |as a set| of char|
|000019f0| 61 63 74 65 72 73 38 50 | 53 74 72 46 69 6e 64 4c |acters8P|StrFindL|
|00001a00| 53 28 29 20 66 69 6e 64 | 73 20 74 68 65 20 6c 61 |S() find|s the la|
|00001a10| 73 74 20 6f 63 63 75 72 | 61 6e 63 65 20 69 6e 20 |st occur|ance in |
|00001a20| 62 6f 74 68 20 73 20 61 | 6e 64 20 73 65 74 2e 00 |both s a|nd set..|
|00001a30| 2d 49 74 20 72 65 74 75 | 72 6e 73 20 74 68 65 20 |-It retu|rns the |
|00001a40| 63 68 61 72 2e 70 6f 73 | 69 74 69 6f 6e 20 66 6f |char.pos|ition fo|
|00001a50| 75 6e 64 20 65 6c 73 65 | 20 7a 65 72 6f 2e 0d 50 |und else| zero..P|
|00001a60| 65 61 63 65 2c 20 50 65 | 61 63 65 21 2c 47 69 76 |eace, Pe|ace!,Giv|
|00001a70| 65 6e 3a 20 20 20 20 20 | 20 20 20 73 31 5f 53 74 |en: | s1_St|
|00001a80| 72 32 35 35 20 3d 3d 20 | 22 5c 70 50 65 61 63 65 |r255 == |"\pPeace|
|00001a90| 2c 20 50 65 61 63 65 21 | 22 00 35 43 61 6c 6c 69 |, Peace!|".5Calli|
|00001aa0| 6e 67 3a 20 20 20 20 20 | 20 61 5f 69 6e 74 20 3d |ng: | a_int =|
|00001ab0| 20 50 53 74 72 46 69 6e | 64 4c 53 28 73 31 5f 53 | PStrFin|dLS(s1_S|
|00001ac0| 74 72 32 35 35 2c 20 22 | 5c 70 61 62 63 22 29 3b |tr255, "|\pabc");|
|00001ad0| 03 61 62 63 17 52 65 73 | 75 6c 74 73 20 49 6e 3a |.abc.Res|ults In:|
|00001ae0| 20 20 20 61 5f 69 6e 74 | 20 3d 3d 20 08 28 73 2c | a_int| == .(s,|
|00001af0| 20 73 65 74 29 00 0b 50 | 53 74 72 46 69 6e 64 46 | set)..P|StrFindF|
|00001b00| 4e 53 1f 73 20 20 20 20 | 2d 20 20 50 61 73 63 61 |NS.s |- Pasca|
|00001b10| 6c 20 73 74 72 69 6e 67 | 20 74 6f 20 73 65 61 72 |l string| to sear|
|00001b20| 63 68 37 73 65 74 20 20 | 2d 20 20 50 61 73 63 61 |ch7set |- Pasca|
|00001b30| 6c 20 73 74 72 69 6e 67 | 20 63 6f 6e 73 69 64 65 |l string| conside|
|00001b40| 72 65 64 20 61 73 20 61 | 20 73 65 74 20 6f 66 20 |red as a| set of |
|00001b50| 63 68 61 72 61 63 74 65 | 72 73 3e 50 53 74 72 46 |characte|rs>PStrF|
|00001b60| 69 6e 64 46 4e 53 28 29 | 20 66 69 6e 64 73 20 74 |indFNS()| finds t|
|00001b70| 68 65 20 66 69 72 73 74 | 20 6f 63 63 75 72 61 6e |he first| occuran|
|00001b80| 63 65 20 4e 4f 54 20 69 | 6e 20 62 6f 74 68 20 73 |ce NOT i|n both s|
|00001b90| 20 61 6e 64 20 73 65 74 | 2e 00 2d 49 74 20 72 65 | and set|..-It re|
|00001ba0| 74 75 72 6e 73 20 74 68 | 65 20 63 68 61 72 2e 70 |turns th|e char.p|
|00001bb0| 6f 73 69 74 69 6f 6e 20 | 66 6f 75 6e 64 20 65 6c |osition |found el|
|00001bc0| 73 65 20 7a 65 72 6f 2e | 0d 53 2e 4f 2e 53 2e 2c |se zero.|.S.O.S.,|
|00001bd0| 20 53 2e 4f 2e 53 2c 47 | 69 76 65 6e 3a 20 20 20 | S.O.S,G|iven: |
|00001be0| 20 20 20 20 20 73 31 5f | 53 74 72 32 35 35 20 3d | s1_|Str255 =|
|00001bf0| 3d 20 22 5c 70 53 2e 4f | 2e 53 2e 2c 20 53 2e 4f |= "\pS.O|.S., S.O|
|00001c00| 2e 53 22 00 36 43 61 6c | 6c 69 6e 67 3a 20 20 20 |.S".6Cal|ling: |
|00001c10| 20 20 20 61 5f 69 6e 74 | 20 3d 20 50 53 74 72 46 | a_int| = PStrF|
|00001c20| 69 6e 64 46 4e 53 28 73 | 31 5f 53 74 72 32 35 35 |indFNS(s|1_Str255|
|00001c30| 2c 20 22 5c 70 53 2e 4f | 22 29 3b 00 03 53 2e 4f |, "\pS.O|");..S.O|
|00001c40| 17 52 65 73 75 6c 74 73 | 20 49 6e 3a 20 20 20 61 |.Results| In: a|
|00001c50| 5f 69 6e 74 20 3d 3d 20 | 08 28 73 31 2c 20 73 32 |_int == |.(s1, s2|
|00001c60| 29 00 07 50 53 74 72 43 | 6d 70 14 73 31 20 20 2d |)..PStrC|mp.s1 -|
|00001c70| 20 20 50 61 73 63 61 6c | 20 73 74 72 69 6e 67 00 | Pascal| string.|
|00001c80| 14 73 32 20 20 2d 20 20 | 50 61 73 63 61 6c 20 73 |.s2 - |Pascal s|
|00001c90| 74 72 69 6e 67 00 1c 50 | 53 74 72 43 6d 70 28 29 |tring..P|StrCmp()|
|00001ca0| 20 63 6f 6d 70 61 72 65 | 73 20 73 31 20 74 6f 20 | compare|s s1 to |
|00001cb0| 73 32 2e 00 32 52 65 73 | 75 6c 74 3a 20 3c 30 20 |s2..2Res|ult: <0 |
|00001cc0| 6c 65 73 73 20 74 68 61 | 6e 3b 20 20 3d 3d 30 20 |less tha|n; ==0 |
|00001cd0| 65 71 75 61 6c 3b 20 20 | 3e 30 20 67 72 65 61 74 |equal; |>0 great|
|00001ce0| 65 72 20 74 68 61 6e 00 | 32 43 61 6c 6c 69 6e 67 |er than.|2Calling|
|00001cf0| 3a 20 20 20 20 20 20 61 | 5f 69 6e 74 20 3d 20 50 |: a|_int = P|
|00001d00| 53 74 72 43 6d 70 28 22 | 5c 70 41 42 43 44 22 2c |StrCmp("|\pABCD",|
|00001d10| 20 22 5c 70 41 42 43 45 | 22 29 3b 00 04 41 42 43 | "\pABCE|");..ABC|
|00001d20| 44 00 04 41 42 43 45 00 | 17 52 65 73 75 6c 74 73 |D..ABCE.|.Results|
|00001d30| 20 49 6e 3a 20 20 20 61 | 5f 69 6e 74 20 3d 3d 20 | In: a|_int == |
|00001d40| 32 43 61 6c 6c 69 6e 67 | 3a 20 20 20 20 20 20 61 |2Calling|: a|
|00001d50| 5f 69 6e 74 20 3d 20 50 | 53 74 72 43 6d 70 28 22 |_int = P|StrCmp("|
|00001d60| 5c 70 41 42 43 44 22 2c | 20 22 5c 70 41 42 43 44 |\pABCD",| "\pABCD|
|00001d70| 22 29 3b 00 04 41 42 43 | 44 00 04 41 42 43 44 00 |");..ABC|D..ABCD.|
|00001d80| 17 52 65 73 75 6c 74 73 | 20 49 6e 3a 20 20 20 61 |.Results| In: a|
|00001d90| 5f 69 6e 74 20 3d 3d 20 | 34 43 61 6c 6c 69 6e 67 |_int == |4Calling|
|00001da0| 3a 20 20 20 20 20 20 61 | 5f 69 6e 74 20 3d 20 50 |: a|_int = P|
|00001db0| 53 74 72 43 6d 70 28 22 | 5c 70 41 42 43 44 46 22 |StrCmp("|\pABCDF"|
|00001dc0| 2c 20 22 5c 70 41 42 43 | 44 45 22 29 3b 00 05 41 |, "\pABC|DE");..A|
|00001dd0| 42 43 44 46 05 41 42 43 | 44 45 17 52 65 73 75 6c |BCDF.ABC|DE.Resul|
|00001de0| 74 73 20 49 6e 3a 20 20 | 20 61 5f 69 6e 74 20 3d |ts In: | a_int =|
|00001df0| 3d 20 31 43 61 6c 6c 69 | 6e 67 3a 20 20 20 20 20 |= 1Calli|ng: |
|00001e00| 20 61 5f 69 6e 74 20 3d | 20 50 53 74 72 43 6d 70 | a_int =| PStrCmp|
|00001e10| 28 22 5c 70 41 42 43 22 | 2c 20 22 5c 70 41 42 43 |("\pABC"|, "\pABC|
|00001e20| 44 22 29 3b 06 50 53 74 | 72 20 31 00 07 50 53 74 |D");.PSt|r 1..PSt|
|00001e30| 72 20 31 32 17 52 65 73 | 75 6c 74 73 20 49 6e 3a |r 12.Res|ults In:|
|00001e40| 20 20 20 61 5f 69 6e 74 | 20 3d 3d 20 27 28 63 6f | a_int| == '(co|
|00001e50| 75 6e 74 2c 20 76 61 72 | 4c 61 62 65 6c 2c 20 76 |unt, var|Label, v|
|00001e60| 61 72 54 79 70 65 2c 20 | 76 61 72 50 74 72 2c 20 |arType, |varPtr, |
|00001e70| 2e 2e 2e 29 08 53 68 6f | 77 56 61 72 73 00 43 63 |...).Sho|wVars.Cc|
|00001e80| 6f 75 6e 74 20 20 20 20 | 20 2d 20 20 23 20 6f 66 |ount | - # of|
|00001e90| 20 7b 20 76 61 72 4c 61 | 62 65 6c 2c 20 76 61 72 | { varLa|bel, var|
|00001ea0| 54 79 70 65 2c 20 76 61 | 72 50 74 72 20 7d 20 61 |Type, va|rPtr } a|
|00001eb0| 72 67 2e 20 73 65 74 73 | 20 74 6f 20 66 6f 6c 6c |rg. sets| to foll|
|00001ec0| 6f 77 33 76 61 72 4c 61 | 62 65 6c 20 20 2d 20 20 |ow3varLa|bel - |
|00001ed0| 50 61 73 63 61 6c 20 73 | 74 72 69 6e 67 20 75 73 |Pascal s|tring us|
|00001ee0| 65 64 20 61 73 20 76 61 | 72 69 61 62 6c 65 27 73 |ed as va|riable's|
|00001ef0| 20 6c 61 62 65 6c 1d 76 | 61 72 54 79 70 65 20 20 | label.v|arType |
|00001f00| 20 2d 20 20 54 79 70 65 | 20 6f 66 20 76 61 72 69 | - Type| of vari|
|00001f10| 61 62 6c 65 1f 76 61 72 | 50 74 72 20 20 20 20 2d |able.var|Ptr -|
|00001f20| 20 20 56 61 72 69 61 62 | 6c 65 27 73 20 61 64 64 | Variab|le's add|
|00001f30| 72 65 73 73 41 2e 2e 2e | 20 20 20 20 20 20 20 2d |ressA...| -|
|00001f40| 20 20 31 2d 39 20 61 64 | 64 69 74 69 6f 6e 61 6c | 1-9 ad|ditional|
|00001f50| 20 73 65 74 73 20 6f 66 | 20 7b 20 76 61 72 4c 61 | sets of| { varLa|
|00001f60| 62 65 6c 2c 20 76 61 72 | 54 79 70 65 2c 20 76 61 |bel, var|Type, va|
|00001f70| 72 50 74 72 20 7d 40 53 | 68 6f 77 56 61 72 73 28 |rPtr }@S|howVars(|
|00001f80| 29 20 64 69 73 70 6c 61 | 79 73 20 74 68 65 20 6c |) displa|ys the l|
|00001f90| 61 62 65 6c 20 26 20 76 | 61 6c 75 65 20 6f 66 20 |abel & v|alue of |
|00001fa0| 31 2d 31 30 20 76 61 72 | 69 61 62 6c 65 73 2e 20 |1-10 var|iables. |
|00001fb0| 20 49 74 27 73 20 61 00 | 43 67 72 65 61 74 20 72 | It's a.|Cgreat r|
|00001fc0| 75 6e 2d 74 69 6d 65 20 | 64 65 62 75 67 67 69 6e |un-time |debuggin|
|00001fd0| 67 20 74 6f 6f 6c 21 20 | 20 48 65 72 65 27 73 20 |g tool! | Here's |
|00001fe0| 61 6e 20 65 78 61 6d 70 | 6c 65 20 63 61 6c 6c 69 |an examp|le calli|
|00001ff0| 6e 67 20 73 65 71 75 65 | 6e 63 65 3a 2b 3c 3c 3c |ng seque|nce:+<<<|
|00002000| 20 43 6c 69 63 6b 20 53 | 68 6f 77 56 61 72 73 20 | Click S|howVars |
|00002010| 42 75 74 74 6f 6e 20 54 | 6f 20 53 65 65 20 52 65 |Button T|o See Re|
|00002020| 73 75 6c 74 20 3e 3e 3e | 2c 53 68 6f 77 56 61 72 |sult >>>|,ShowVar|
|00002030| 73 28 37 2c 20 22 5c 70 | 61 5f 42 6f 6f 6c 65 61 |s(7, "\p|a_Boolea|
|00002040| 6e 22 2c 20 42 4f 4f 4c | 2c 20 26 61 5f 42 6f 6f |n", BOOL|, &a_Boo|
|00002050| 6c 65 61 6e 2c 00 24 20 | 20 20 20 20 20 20 20 20 |lean,.$ | |
|00002060| 20 20 20 22 5c 70 61 5f | 69 6e 74 22 2c 20 43 49 | "\pa_|int", CI|
|00002070| 4e 54 2c 20 26 61 5f 69 | 6e 74 2c 00 27 20 20 20 |NT, &a_i|nt,.' |
|00002080| 20 20 20 20 20 20 20 20 | 20 22 5c 70 61 5f 6c 6f | | "\pa_lo|
|00002090| 6e 67 22 2c 20 43 4c 4f | 4e 47 2c 20 26 61 5f 6c |ng", CLO|NG, &a_l|
|000020a0| 6f 6e 67 2c 2a 20 20 20 | 20 20 20 20 20 20 20 20 |ong,* | |
|000020b0| 20 22 5c 70 61 5f 66 6c | 6f 61 74 22 2c 20 43 46 | "\pa_fl|oat", CF|
|000020c0| 4c 4f 41 54 2c 20 26 61 | 5f 66 6c 6f 61 74 2c 00 |LOAT, &a|_float,.|
|000020d0| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 22 5c 70 |3 | "\p|
|000020e0| 61 5f 73 68 6f 72 74 44 | 62 6c 22 2c 20 43 53 48 |a_shortD|bl", CSH|
|000020f0| 4f 52 54 44 42 4c 2c 20 | 26 61 5f 73 68 6f 72 74 |ORTDBL, |&a_short|
|00002100| 44 62 6c 2c 2a 20 20 20 | 20 20 20 20 20 20 20 20 |Dbl,* | |
|00002110| 20 22 5c 70 61 5f 64 6f | 75 62 6c 65 22 2c 20 43 | "\pa_do|uble", C|
|00002120| 44 42 4c 2c 20 26 61 5f | 64 6f 75 62 6c 65 2c 00 |DBL, &a_|double,.|
|00002130| 2b 20 20 20 20 20 20 20 | 20 20 20 20 20 22 5c 70 |+ | "\p|
|00002140| 61 5f 53 74 72 32 35 35 | 22 2c 20 50 53 54 52 2c |a_Str255|", PSTR,|
|00002150| 20 73 31 5f 53 74 72 32 | 35 35 29 3b 3e 54 68 65 | s1_Str2|55);>The|
|00002160| 20 46 6f 6c 6c 6f 77 69 | 6e 67 20 6d 61 63 72 6f | Followi|ng macro|
|00002170| 73 20 61 72 65 20 64 65 | 66 69 6e 65 64 20 69 6e |s are de|fined in|
|00002180| 20 50 53 74 72 4c 69 62 | 2e 68 3a 20 20 49 73 41 | PStrLib|.h: IsA|
|00002190| 6c 70 68 61 4e 75 6d 28 | 63 29 2c 00 3a 49 73 41 |lphaNum(|c),.:IsA|
|000021a0| 6c 70 68 61 28 63 29 2c | 20 49 73 41 73 63 69 69 |lpha(c),| IsAscii|
|000021b0| 28 63 29 2c 20 49 73 43 | 6e 74 72 6c 28 63 29 2c |(c), IsC|ntrl(c),|
|000021c0| 20 49 73 43 53 79 6d 28 | 63 29 2c 20 49 73 43 53 | IsCSym(|c), IsCS|
|000021d0| 79 6d 46 28 63 29 2c 00 | 3e 49 73 44 69 67 69 74 |ymF(c),.|>IsDigit|
|000021e0| 28 63 29 2c 20 49 73 47 | 72 61 70 68 28 63 29 2c |(c), IsG|raph(c),|
|000021f0| 20 49 73 4f 63 74 44 69 | 67 69 74 28 63 29 2c 20 | IsOctDi|git(c), |
|00002200| 49 73 50 72 69 6e 74 28 | 63 29 2c 20 49 73 50 75 |IsPrint(|c), IsPu|
|00002210| 6e 63 74 28 63 29 2c 00 | 3f 49 73 53 70 61 63 65 |nct(c),.|?IsSpace|
|00002220| 28 63 29 20 20 49 73 48 | 65 78 44 69 67 69 74 28 |(c) IsH|exDigit(|
|00002230| 63 29 2e 20 20 54 68 65 | 79 20 61 6c 6c 20 74 65 |c). The|y all te|
|00002240| 73 74 20 63 68 61 72 61 | 63 74 65 72 20 63 20 66 |st chara|cter c f|
|00002250| 6f 72 20 74 68 65 69 72 | 42 72 65 73 70 65 63 74 |or their|Brespect|
|00002260| 69 76 65 20 63 6f 6e 64 | 69 74 69 6f 6e 73 20 72 |ive cond|itions r|
|00002270| 65 74 75 72 6e 69 6e 67 | 20 30 20 69 66 20 46 41 |eturning| 0 if FA|
|00002280| 4c 53 45 20 65 6c 73 65 | 20 3e 30 20 54 52 55 45 |LSE else| >0 TRUE|
|00002290| 2e 20 20 57 41 52 4e 49 | 4e 47 3a 00 44 44 6f 6e |. WARNI|NG:.DDon|
|000022a0| 27 74 20 75 73 65 20 63 | 27 73 20 64 65 6c 63 61 |'t use c|'s delca|
|000022b0| 72 65 64 20 61 73 20 74 | 79 70 65 20 63 68 61 72 |red as t|ype char|
|000022c0| 20 28 73 65 65 20 50 53 | 74 72 4c 69 62 2e 68 20 | (see PS|trLib.h |
|000022d0| 66 6f 72 20 65 78 70 6c | 61 6e 61 74 69 6f 6e 29 |for expl|anation)|
|000022e0| 21 00 27 45 78 65 63 75 | 74 69 6e 67 3a 20 20 20 |!.'Execu|ting: |
|000022f0| 20 61 5f 69 6e 74 20 3d | 20 49 73 41 6c 70 68 61 | a_int =| IsAlpha|
|00002300| 28 27 61 27 29 3b 20 20 | 20 20 17 52 65 73 75 6c |('a'); | .Resul|
|00002310| 74 73 20 49 6e 3a 20 20 | 20 61 5f 69 6e 74 20 3d |ts In: | a_int =|
|00002320| 3d 20 23 45 78 65 63 75 | 74 69 6e 67 3a 20 20 20 |= #Execu|ting: |
|00002330| 20 61 5f 69 6e 74 20 3d | 20 49 73 41 6c 70 68 61 | a_int =| IsAlpha|
|00002340| 28 27 31 27 29 3b 17 52 | 65 73 75 6c 74 73 20 49 |('1');.R|esults I|
|00002350| 6e 3a 20 20 20 61 5f 69 | 6e 74 20 3d 3d 20 23 45 |n: a_i|nt == #E|
|00002360| 78 65 63 75 74 69 6e 67 | 3a 20 20 20 20 61 5f 69 |xecuting|: a_i|
|00002370| 6e 74 20 3d 20 49 73 44 | 69 67 69 74 28 27 61 27 |nt = IsD|igit('a'|
|00002380| 29 3b 17 52 65 73 75 6c | 74 73 20 49 6e 3a 20 20 |);.Resul|ts In: |
|00002390| 20 61 5f 69 6e 74 20 3d | 3d 20 23 45 78 65 63 75 | a_int =|= #Execu|
|000023a0| 74 69 6e 67 3a 20 20 20 | 20 61 5f 69 6e 74 20 3d |ting: | a_int =|
|000023b0| 20 49 73 44 69 67 69 74 | 28 27 31 27 29 3b 17 52 | IsDigit|('1');.R|
|000023c0| 65 73 75 6c 74 73 20 49 | 6e 3a 20 20 20 61 5f 69 |esults I|n: a_i|
|000023d0| 6e 74 20 3d 3d 20 05 50 | 61 67 65 20 |nt == .P|age |
+--------+-------------------------+-------------------------+--------+--------+
